Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/HyperTalk/Stack Starter ß.976/Stack Starter fl.976/card_18593.txt

Text File | 1988-08-03 | 11.1 KB | 514 lines

-- card: 18593 from stack: in.976
-- bmap block id: 3716
-- flags: 0000
-- background id: 2295
-- name: the icon initiator
----- HyperTalk script -----
on idle
  if visible of field "Mouse Loc2" is true then
    put the mouseLoc into field "Mouse Loc2"
  end if
  send action to card btn "Centipede"--"Bug"
  send idle to stack
  exit idle
end idle

on closeCard
  hide tool window
  pass closeCard
end closeCard

--on arrowKey something
put "bkgnd btn id 31" into ico
if something is "Up" then
  if the commandkey is down then
    put icon of ico into iconid
    add 1 to iconid
    set icon of ico to iconid
    put "set icon of me to" && iconid
  end if
else if something is "Down" then
  if the commandkey is down then
    put icon of ico into iconid
    subtract 1 from iconid
    set icon of ico to iconid
    put "set icon of me to" && iconid
  end if
  --else if something is "Right" then
  --if the commandkey is down then
  --put icon of ico into iconid
  --repeat with iconi = iconid to 1101
  --set icon of me to iconi
  --put "set icon of ico to" && iconi
  --if the mouseClick is true then exit repeat
  --end repeat
  --end if
end if
pass arrowKey
end arrowKey



-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=26 top=107 right=157 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show
----- HyperTalk script -----
on mouseUp
  put "Click the mouse to select icon."
  repeat with iconid = 1000 to 1021
    set icon of me to iconid
    wait 7
    if the mouseClick is true then exit repeat
  end repeat
  if iconid = 1021 then
    set icon of me to 1020
    hide msg
    exit mouseUp
  end if
  put "set icon of me to" && iconid
end mouseUp




-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=69 top=107 right=157 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 6017 / 6017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create
----- HyperTalk script -----
on mouseUp
  MakeIcon
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=26 top=222 right=272 bottom=65
-- title width / last selected line: 0
-- icon id / first selected line: 4188 / 4188
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  do short name of me
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=68 top=222 right=272 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 4179 / 4179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  doMenu short name of me
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=28 top=304 right=333 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 4307 / 4307
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Centipede
----- HyperTalk script -----
on mouseUp
  set icon of me to 4307
  get loc of me
  add 10 to item 1 of it
  put it
end mouseUp

on action
  put loc of me into location
  if item 1 of location < 1 then
    put 512 into item 1 of location
    put random(312)+30 into item 2 of location
    repeat with i = 5 to 9
      show card btn id i at location
      subtract 30 from item 1 of location
      --subtract random(2) from item 2 of location
    end repeat
    add 192 to item 1 of location
  end if
  lock
  repeat with i = 5 to 9
    --set icon of card btn id i to 4303 + random(2)
    --if icon of card btn id i is 4304 then
    -- set icon of card btn id i to 4305
    --else set icon of card btn id i to 4304
    subtract 30 from item 1 of location
    --subtract random(2) from item 2 of location
    show card btn id i at location
  end repeat
  -- unlock
end action


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=-2 top=304 right=333 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 4307 / 4307
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 4307
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=-32 top=304 right=333 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 4307 / 4307
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 4307
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=-62 top=304 right=333 bottom=-30
-- title width / last selected line: 0
-- icon id / first selected line: 4307 / 4307
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 4307
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=-92 top=304 right=333 bottom=-60
-- title width / last selected line: 0
-- icon id / first selected line: 4307 / 4307
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 4307
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=451 top=248 right=298 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 4113 / 4113
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bug Out
----- HyperTalk script -----
on mouseUp
  set icon of me to 4114
  set icon of me to 4113
  set icon of me to 4114
  send mouseDown to card button "Bug"
  set icon of me to 4113
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=393 top=268 right=292 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 4112 / 4112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bug
----- HyperTalk script -----
on mouseEnter
  put the loc of me into location
  add random(60) to item 1 of location
  subtract random(40) from item 2 of location
  set lockscreen to true
  set loc of me to location
  set lockscreen to false
end mouseEnter

on mouseDown
  set icon of me to 4111
  put the loc of me into location
  set icon of me to 4112
  repeat until item 2 of location > 342
    add 60 to item 2 of location
    set lockscreen to true
    set loc of me to location
    set lockscreen to false
    put the loc of me into location
  end repeat
  put 1 into item 1 of location
  put random(342) into item 2 of location
  set loc of me to location
end mouseDown

on idle
  repeat with i = 4108 to 4110
    set icon of me to i
  end repeat
  put the loc of me into location
  if item 1 of location > 512 then
    put 0 into item 1 of location
    put random(342) into item 2 of location
  end if
  add 11 to item 1 of location
  add random(1) to item 2 of location
  set lockscreen to true
  set loc of me to location
  set icon of me to 4107
  set lockscreen to false
  exit idle
end idle



-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=27 top=160 right=210 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Sorry, That feature is not supported at this time."
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=69 top=160 right=210 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Sorry, That feature is not supported at this time."
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=309 top=311 right=327 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Icons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  beep
  answer "You're already in" && quote & short name of me & quote & "!"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=239 top=74 right=110 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 6174 / 6174
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  repeat until the mouse is down
    repeat with i = 6171 to 6174
      put the loc of me into temp
      if item 1 of temp > 512 then put 0 into item 1 of temp
      if item 2 of temp < 0 then put 342 into item 2 of temp
      set icon of me to i
      subtract 8 from item 2 of temp
      add 8 to item 1 of temp
      show the target at temp
    end repeat
  end repeat
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=184 top=89 right=128 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 6180 / 6180
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  repeat until the mouse is down
    repeat with i = 6177 to 6180
      put the loc of me into temp
      if item 1 of temp < 0 then put 512 into item 1 of temp
      if item 2 of temp < 0 then put 342 into item 2 of temp
      set icon of me to i
      subtract 8 from item 1 of temp
      subtract 8 from item 2 of temp
      show the target at temp
    end repeat
  end repeat
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=264 top=121 right=163 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 6176 / 6176
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  repeat until the mouse is down
    repeat with i = 6175 to 6176
      put the loc of me into temp
      if item 2 of temp > 342 then
        put (10 + random(490)) into item 1 of temp
        put 0 into item 2 of temp
      end if
      set icon of me to i
      add 8 to item 2 of temp
      show the target at temp
    end repeat
  end repeat
end mouseUp



-- part contents for background part 56
----- text -----
the icon initiator

-- part contents for background part 78
----- text -----
Prev Card: the field fabricater

-- part contents for background part 79
----- text -----
Next Card: animated icons 1

-- part contents for background part 67
----- text -----
Mouse Location:

-- part contents for background part 68
----- text -----
210,117

-- part contents for background part 82
----- text -----
Free Space:

-- part contents for background part 83
----- text -----
0.00 K